UNIT Types;

INTERFACE

Type	
		//concerne les données d'un compte
		Tcompte=RECORD
			IDcompte:INTEGER;
			Libelle:STRING;
			taux:STRING;
			solde:INTEGER;
			limite:INTEGER;
		END;
		//concerne le tableau ou sont stocke les comptes
		TTabCompte=RECORD
			compteclient:ARRAY[1..100] of Tcompte;
			nbcompte:INTEGER;
			IDListcompte:INTEGER;
			//IDListcompte:INTEGER;
		END;
		
		//concerne les données d'un client
		
		TClient = RECORD
			ID: INTEGER;
			nom: STRING;
			prenom: STRING;
			naissance: STRING;
			politesse: STRING;
			adresse: STRING;
			npa: STRING;
			localite: STRING;
			telephone: STRING;
			Comptes:TTabCompte;
		END;
		
		//concerne le tableau ou sont stockes les clients
		TTabClient = RECORD
			tabclient:ARRAY[1..100] of TClient;
			nbelement:INTEGER;
			DernierIDClient :INTEGER;
		

		//le nbelement ou nbcompte corresponde au nombre d'élément dans les tableaux
		
		END;
IMPLEMENTATION
	END.
